home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / color.dxr / 00202.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  723 b   |  24 lines
  1. on mouseUp me
  2.   global coolskyr, coolskyg, coolskyb, iconfade
  3.   showit(36, 38)
  4.   set the blend of sprite 52 to 100
  5.   repeat with iconfade = 47 to 51
  6.     set the blend of sprite iconfade to 50
  7.   end repeat
  8.   repeat with iconfade = 53 to 54
  9.     set the blend of sprite iconfade to 50
  10.   end repeat
  11.   set the memberNum of sprite 36 to 19
  12.   sprite(39).color = rgb(coolskyr, coolskyg, coolskyb)
  13.   sprite(52).color = rgb(coolskyr, coolskyg, coolskyb)
  14.   if coolskyg > 0 then
  15.     set the locH of sprite 38 to 100 - (coolskyg / 2.54999999999999982) + 439
  16.   else
  17.     if coolskyr > 0 then
  18.       set the locH of sprite 38 to (coolskyr / 2.54999999999999982) + 539
  19.     else
  20.       set the locH of sprite 38 to 539
  21.     end if
  22.   end if
  23. end
  24.